inherited frmCon_Carga: TfrmCon_Carga
  Left = 127
  Top = 151
  Caption = 'Consulta de Cargas'
  OldCreateOrder = True
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  inherited GB: TGroupBox
    object edValor: TEdit
      Left = 8
      Top = 24
      Width = 149
      Height = 22
      BevelKind = bkFlat
      BorderStyle = bsNone
      TabOrder = 0
      OnChange = edValorChange
    end
  end
  inherited Panel2: TPanel
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 628
      Height = 241
      Align = alClient
      DataSource = DataSource1
      Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
      OnDblClick = BtnFecharClick
      OnKeyDown = DBGrid1KeyDown
      Columns = <
        item
          Expanded = False
          FieldName = 'CAR_NUMERO'
          Title.Caption = 'Num.'
          Visible = True
        end
        item
          Color = 16056319
          Expanded = False
          FieldName = 'CAR_PESO'
          Title.Caption = 'Peso'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'TRAN_NOME'
          Title.Caption = 'Transportadora'
          Visible = True
        end>
    end
  end
  object Query1: TQuery
    DatabaseName = 'Industrial'
    SQL.Strings = (
      'Select distinct(c.Car_Numero), Car_Peso, Tran_Nome'
      ' from Item_Carga ic, ItemPedVenda ip, Transportadora t, Carga c'
      
        'where ip.Emp_Codigo in ('#39'001'#39','#39'101'#39') and ic.Ped_Numero=ip.Ped_Nu' +
        'mero '
      'and ic.Ped_Item=ip.Ped_Item'
      'and c.Car_Numero = ic.Car_Numero'
      'and t.Tran_Codigo = c.Tran_Codigo'
      ''
      ''
      '')
    Left = 504
    Top = 69
    object Query1CAR_NUMERO: TStringField
      FieldName = 'CAR_NUMERO'
      Size = 6
    end
    object Query1CAR_PESO: TFloatField
      FieldName = 'CAR_PESO'
    end
    object Query1TRAN_NOME: TStringField
      FieldName = 'TRAN_NOME'
      Size = 40
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 556
    Top = 69
  end
end
